home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
newstick
/
frmtest.frm
< prev
next >
Wrap
Text File
|
1999-01-18
|
5KB
|
135 lines
VERSION 5.00
Object = "{916AB300-0F98-11D2-A87F-B47618400A73}#3.1#0"; "NewsTick.ocx"
Begin VB.Form frmTest
BackColor = &H00FFFFFF&
Caption = "DevPower NewsTicker"
ClientHeight = 3375
ClientLeft = 60
ClientTop = 345
ClientWidth = 6690
Icon = "frmTest.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
Picture = "frmTest.frx":0442
ScaleHeight = 3375
ScaleWidth = 6690
StartUpPosition = 3 'Windows Default
Begin VB.CheckBox chkEnabled
BackColor = &H00FFFFFF&
Caption = "Play"
Height = 324
Left = 6072
TabIndex = 2
TabStop = 0 'False
Top = 1044
Value = 1 'Checked
Width = 624
End
Begin DevPowerNewsTicker.NewsTicker NewsTicker
Align = 2 'Align Bottom
Height = 384
Index = 2
Left = 0
Top = 2988
Width = 6696
_ExtentX = 11800
_ExtentY = 741
Direction = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
HoverUnderline = 0 'False
MouseIcon = "frmTest.frx":1CE4
ScrollDelay = 1
Caption = "DevPower NewsTicker...;allows full control over behaviour...;and allows you to...;download a text file to display..."
End
Begin DevPowerNewsTicker.NewsTicker NewsTicker
Align = 1 'Align Top
Height = 972
Index = 1
Left = 0
Top = 0
Width = 6696
_ExtentX = 11800
_ExtentY = 1720
BackColor = 16777215
ClickColor = 12582912
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
HighlightColor = 8388608
HoverBold = 0 'False
MouseIcon = "frmTest.frx":1E46
MousePointer = 99
TextColor = 192
Caption = $"frmTest.frx":1FA8
Picture = "frmTest.frx":207E
End
Begin VB.Label lblEvents
BackStyle = 0 'Transparent
Height = 732
Index = 2
Left = 0
TabIndex = 0
Top = 1848
Width = 3312
WordWrap = -1 'True
End
Begin VB.Label lblEvents
BackStyle = 0 'Transparent
Height = 732
Index = 1
Left = 0
TabIndex = 1
Top = 1044
Width = 3312
WordWrap = -1 'True
End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub chkEnabled_Click()
NewsTicker(1).Play = chkEnabled And vbChecked
End Sub
Private Sub Form_Load()
Me.Caption = "DevPower NewsTicker Version " + NewsTicker(1).Version + " (" + NewsTicker(1).VBVersion + ")"
End Sub
Private Sub Form_Resize()
chkEnabled.Left = Me.ScaleWidth - chkEnabled.Width
End Sub
Private Sub NewsTicker_Click(Index As Integer, ByVal iItemNumber As Integer, ByVal sItem As String, ByVal sItemURL As String)
lblEvents(Index).Caption = "Ticker " + CStr(Index) + " Item " + CStr(iItemNumber) + " - '" + sItem + "' clicked - embedded URL is "
If sItemURL = "" Then
lblEvents(Index).Caption = lblEvents(Index).Caption + "empty"
Else
lblEvents(Index).Caption = lblEvents(Index).Caption + sItemURL
End If
End Sub
Private Sub NewsTicker_ItemScrollEnd(Index As Integer, ByVal iItemNumber As Integer)
lblEvents(Index).Caption = "Ticker " + CStr(Index) + " Item " + CStr(iItemNumber) + " scrolled out of view"
End Sub
Private Sub NewsTicker_ItemScrollStart(Index As Integer, ByVal iItemNumber As Integer)
lblEvents(Index).Caption = "Ticker " + CStr(Index) + " Item " + CStr(iItemNumber) + " scrolling about to start"
End Sub